VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CompositeClassCaller"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mCollection As New Collection
Private mComposite As New CompositeMethodCaller

Public Sub add(forward As Object)
mComposite.add forward
End Sub

Public Sub forward(notify As Object)
mComposite.forward notify
End Sub

Public Property Get elapsedTime() As Double
elapsedTime = mComposite.elapsedTime
End Property

Public Property Get Count() As Integer
Count = mCollection.Count
End Property

Public Property Get numOfMethods() As Integer
Dim num As Integer
Dim fwd As Object
For Each fwd In mCollection
    num = num + fwd.numOfMethods
Next
numOfMethods = num
End Property

Public Property Get NumOfAsserts() As Integer
Dim num As Integer
Dim fwd As Object
For Each fwd In mCollection
    num = num + fwd.NumOfAsserts
Next
NumOfAsserts = num
End Property


Private Sub Class_Initialize()
mComposite.init mCollection
End Sub
